home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / N!.SDA / N!-ML (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  587 b   |  9 lines
  1. 10 POKE55,.:POKE56,160:CLR:DIMA$:PRINT"[147]";:P=PEEK(45)+256*PEEK(46)-1
  2. 15 IFPEEK(P)THENP=P-1:GOTO15
  3. 20 SYSP-365
  4. 25 PRINT"ENTER INTEGER (0 TO 145)."
  5. 30 N=-1:INPUTN:IFN<.THENPOKE56,160:END
  6. 35 PRINT:IFN<2THENA$="1"+"":GOTO45
  7. 40 POKE2,N:SYSP-328
  8. 45 PRINT"[157]";N;"[157]! = ";A$:N=FRE(.):GOTO25
  9.